FpsCalc:
 ld   a,[vblanks]
 dec  a
 jr   nz,.fsp1
 ld   bc,ObjFpsCoord
 ld   de,ObjFpsIndex
 ld   a,[frames]
 ld   l,a
 xor  a
 ld   [frames],a
 ld   h,a               ; hl = numbers of frames (<256)

 call PrintHLasObjects
 ld   a,60              ; vblanks changed 60 times in second
.fsp1:
 ld   [vblanks],a
 ret